• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Enables or not to call a spreadsheet, named Bla[month][year].xls

Enables or not to call a spreadsheet, named Bla[month][year].xls

Enables or not to call a spreadsheet, named Bla[month][year].xls

Rate Enables or not to call a spreadsheet, named Bla[month][year].xls

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    vinput = InputBox(UCase$("Input your ID"))
    vnome = "abcd"
    If vinput <> vnome Then
    Inserir.Enabled = False
    Inserir01.Enabled = False
    End If
 End Sub

Private Sub Inserir_Click()
ddefault = Year(Now())
vinput = InputBox(Prompt:="Input Year (AAAA)", Title:="Year", Default:=ddefault)
vrun = Shell("C:\Office\Microsoft Office\Office\Excel.exe", vbNormalFocus)
SendKeys ("^o"), Wait:=False
SendKeys ("C:\Program Files\Project1\Bla" & vinput & ".xls"), Wait:=False
SendKeys ("{Enter}"), Wait:=False

End Sub